lambdas <- seq(0,0.5,length.out = 100)
print(lambdas)
